Akan membuat guery insert data atau menambhkan data dari vb ke database 
Akan mengunakan satu tombol memiliki dua fungsi 

Meliki tambah edit hapus 

Msaing2 meliki 2 fungsi 

Mislkan tambah menjadi simpan 

Kemari sudah membuat sepert ini 
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formt 


" we] ma] kila FIS x > 
Sebelum menjalankan aplikasi aktif kan хатрр nya dahulu 
Test koneksi maka berhasil 


Akan membuat tampilannya 

Form nya ganti name MASTER ADMIN 
TeXT master admin 

Kita buat disini 

Button copy paste sebelunya 
Copy lagi buat tambah edit hapus 
Mengunkan 3 tombol 

Tombol ini akan memiliki 2 fungsi 
Lalu tambahkan textbox 

Dan tambahkan label 

Design boleh mempercantik 
Copy paste aja label dan textbox 
Sementara buat sepereti ini 
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*/ MASTER ADMIN 


TAMBAH EDIT 


Propertie: 
MASTER ADMIN 


Tue 


816, 489 


" ма |» гї ss podes 
Datadrigview selanjutnya 

Sudah selai buat form tampilan 

Kemudian 

Untuk di databsenya 

Buka xampp mysql klik admin 

Lalu buat tabel 
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© Vertikasi2 Langt x х ДА localhost / 127001 /be 4 


С Ф localhost % ox 


BI Vehicle Telematics S NEXU YEARMIX-D.. {= DATARUSAK-Goo. {= PROBLEM BALI-G.. ҘЕ DATA PENGANUAN.. WW hups/docsgoogle... HF Surey-SMSsastd. | AMTECH MEDAN: C 


+. No tables found in database: 


belajar vb 8 Create table 
information. 


bl admin 


06:33 33:24 


| ela] tim mx mp” 8 
Columnya sesuai dgn disini 


A 02.[Part2] CODING KODING SIMPAN DATA KEDATABASE MYSOL VB.NET.mp4 - VLC media player po х 


Media Playback Audio Video Subtitle Tools View Нер 


*/ MASTER ADMIN 


TAMBAH 


MASTER ADMIN Syst 
nir А 


itLocation 


MASTER ADMIN 


Т i [mn] її SIS a 
Ada 4 maka buat 
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m Paa * х А -- x Veri n x x А locihos/ 27001/be X + 
= с Ф locahost зл ox 


Apps M Vehicle Telematics 5 NEXUVEARMIX-D.. {= DATARUSAK-Goo.. MP PROBLEM BALI-G.. ҘЕ ОАТАРЕМСАМАМ. Й hmps/docsgoogle... HH Survey -SMS sama. Ml AMTECH MEDAN: C 


LengthNalues Default Collation Attributes Null index 
belajar 


formati 
туза 

performance schema 
phpmyadmin 

test 


Structure 


Table comments: Collation: Storage Engine: 


PARTITION definition: 


" i mi» LI Sisik gue 
Kode admin buat primary agar tidak ada nilai sama 

Setelah kita save database kita mempunya satu tabel kita sudah memiliki field atau 
column 

Sebelm buat simpan 

Balik ke module 

Kita tambahkan dibaris ke 2 module modul 
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08:47 


1 da tim mS « 4 
Kemudian balik ke design kita double klik button tambah 

Klik diatas public class form 

Paling atas 

Import dulu karena mengunakan odbc 
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09:20 33:24 
Ih ka mmm її Sisik Pipo” | 


Di buton tambah ganti name agar mudah 
Buat btntambah 
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09:36 33:24 
Semua 
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Kemudian 


Kita lanjut buton tambah 

Kita kondisikan 

If jika penulisan text nya = ‘tambah’ then maka 

Button tambah btntambah.text — 'simpan' maka tulisan menjadi simpan 
Ketika klik tamba maka menjadi simpan 

Buat else maksud nya jika btn tambah jadi simpan 


Jika selai tambah namnya maka pangil 

Buka db nya 

Bukadb() ambil dari module tingal pangil 

Kemudian buat 

dim simpan as string 

simpan — “Insert iNTO tbl admin 

nama tabel harus sama dgn tabel di databse 

lalu value nya 

(" & txtkodeadmin.text &"',"" & txtbnamaadmin.text &"') buat sesuai textbox nya 
Dan buat seterusnya 
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“3 MASTER ADMIN 


› эз Modulel.vb 


14:43 33:24 


> gemi» tan [SS] — ë om 
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Team 


Debug 


Form1.vb [Design]* 
“3 MASTER ADMIN 


› эз Modulel.vb 


14:38 


Hoe mon] CI Sisi 
Cek jika ada yg eror maka pasti dialah disini 
Lalu pangil cmd yg kita buat dari sini 
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14:57 33:24 


Kita pangil cmd new OdbcCommand (Simpan.con) con ambil dari sini 
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ЇЇ] san cw Selz ge 
Nanti koneksikan driver sini 

Kemudian setelah buat ini 

Kita buat 

Cmd.executedQuery() 

Simpan all 

Coba dirun 
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15:48 33:24 


Н el c2 (SSA NE” 
Jika klik tambah maka menjadi simpan 
Disini sudah langsung simpan 
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e c " x x kxalhos/ 127001 ье х + 
зл ө я = 
NEXU YEARMIX-D.. f8 DATA RUSAK - боо. P PROBLEM BALI-G.. d DATA PENGAJUAN... Ñ hmpe//docsgoogle.. ЖЕ Survey -SMS sama. |  МАТЕСН MEDAN: C 


er 127001» @ Database belajar vb: 


performance schema 
= v kodeadmin namaadmin katasandi level 
phpmyadmin 


test n t 


fed J 


IN] Gela] Cl SSZ mpa 
Karena belum divalidasi 

Kenapa tampil koenksi database berhasil 

Karena di module buat sepeti ini 

Maka kita komentarkan 
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И] [и] Tim ss саа 
Kemudian di btnsimpan tambah msggbox jika berhasil simpan 

Msgb databerhasil disimpan 

Boleh pakai try 

Cut dahulu pindahkan try 
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lues ('* & tutkodeadain.Text & ^','* & txtnasaadain.Text & "7,79 & txtkatasandi.Text BT, 


17:20 33:24 


„| «mn time [ei ө || 
Ini dia berhasil maka muncul pesan berhasil 

Jika dia gagal diakan mucul pesan gagal 

msgBox("Gagal tambah data"); 

coba disalah kan tabel lalu run maka dia akan gagal tambah data 


kita buat simpan databerhasil maka textbox kita kosongkan 
lalu buton ubah menjadi tambah lagi 

hapus kita gunakan menjadi batal 

misalkan kita input klik buton maka menjadi kosong 
datanya sudah masuk ke database 
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С Ф localhost зп өэ ыу 
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+ kodeadmin namaadmin  katasandi — level 
» Ө ADMOO1 NYOMAN < 


г i ә 


19:27 


ТЕ ПЕ ПЕЛЕ ЕЕ о | 
Kita akan membuat ketika kita klik tambah mengaktifkan form 

Buat sub TIDAKSIAPISI() 

Txtkodeadmin.Enable = false: 
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TIDAKSIAPISI 


DII 

Setelah buat ini masukan ke form load 

Karena paskita aktifkan aplikasi nya maka tidak aktif 
Disni doublek klik di form 
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Р. а х 


T.BAUNUSRA INT Erperess = IE 


MASTER ADMIN 5, 
M Ж 


408, 252 


MASTER ADMIN 


20:57 


Jadi pangil saja TIDAKSIAPISI 
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#3 MASTER ADMIN 


21:06 33:24 


Jika aktif maka tidak bisa input data 
Jadi misal klik tambah maka dia aktif 
Buat sub lagi SIAPISI 


Yg tadi copy paste 
Tingal ganti true 
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b Start 


#5 MASTER ADMIN 


Jika button tambah maka buton simpan 

Tambahkan siapisi 

Jika klik tambah maka textbox akan akfif 

Buat txtkodeadmin.focus pas klik tombol tambah pointer akan aktif 
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b Start 


#5 MASTER ADMIN 


23:08 33:24 
и =н ШЕЕ Е о i 


Kemudian kita akan tambahkan juga 


Benta coba dahulu maka databerhasil disimpan 
Seharusnya kosong tidak siap isi 

Kita buat sub KOSONGKANTEXT 
Txtkodeadmin.text = '' 

DII 


А 02.[Part2] CODING KODING SIMPAN DATA KEDATABASE MYSQL VB.NET.mp4 - VLC media player 


Media Playback Audio Video Subtitle Tools View Нер 


#3 MASTER ADMIN KOSONGKANTEXT 


Kita pangil kosongkantext dan tidaksiapisi 
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Start 


25:05 33:24 
p | im] tim Sisik MP | 


Dan tambahkan sub lagi 


Sub KONDISIAWAL 
Btntambah.Text = “TAMBAH” 
Btedit.Text = “EDIT” 
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KOSONGKANTEXT 


26:05 33:24 
ШЕ ПЕ lw ЕД ЕЗ « | 
Jadi kita pangil kondisi awal 
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>] wm) e [z|[z|z ge 
Ketika databerhasil disimpan klik oke 

Maka diakan menkosongkan text dan exsekusi tidaksiap isi kemudian pangil kondisi 
awal 


Agar button menjadi normal lagi 


Di run maka berhasil disimpan 
Ketika batal 

Tombol hapus menjadi batal 
btnHapus.text = 'BATAI, 
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p | rel Tim (5161 Me | 
Kemudian di buton hapus di klik 2 kali 

Itu if jika bthapus.text = “batal” then maka 

KOSONGKANTEXT() 

TIDAKSIAPISI() 

KONDISIAWAL() 
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ШИ ЫШ £i ЕЯ ЕЛ " 
Tingal pangil karna sudah buat sub nya 
Level lebih bagus buat pilihan menjadi comboxbox karena plihan admin dan user 
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- x 
Media Playback Audio Video Subtitle Tools 


View Help 


peres 


— 
MASTER ADMIN Syster 


EX DUE А 


MASTER ADMIN 


33:24 
Momm c2 GTA 


Де] 


Cara mengisi data di combo box ini masih kosong 
Posisi nya juga masih enable 

Edit dahulu 

txtLevel ganti comboBox1 
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#5 MASTER ADMIN KOSONGKANTEXT 


30:08 


Kita ubah disni juga hasur diubah insert tombol datany 
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п =н riu Fs MP | 
Cara menambhakn data di combo box 

Kita buat sub ISICOMBOBOX1() caranya 

ComboBoxl.Items.Add(“Administrator”) 

Kedua 

ComboBoxl.Items.Add(“USer”) 
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ISICOMBOBOX1 


31:25 


И «mm ш Bs о || 
Ini kita pangil di form load 
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| «m» tim) Bs pe | 
Jadi di aktif kan form maka comboxbox terisi 

Jadi seperti itudahulu insert data ke database 

Setelah ini akan mencoba menampilkan data yg telah kita insert 

Tampilkan di data grid view 


Form1 
System.Data.Odbc 


күн 


Private Sub Buttonl Click(sender As Object, e As EventArgs) Handles 
Buttonl.Click 


End 


Sub 


End 
Sub 


End 


Sub 


End 
Sub 


End 
Sub 


End 


bukaDB () 
Sub 


TIDAKSIAPDIISI () 


txtkodeadmin.Enabled = False 
txtnamaadmin.Enabled = False 
txtkatasandi.Enabled - False 


ComboBox1.Enabled = False 


Sub 

SIAPISI() 
txtkodeadmin.Enabled = True 
txtnamaadmin.Enabled = True 
txtkatasandi.Enabled - True 
ComboBox1.Enabled = True 
Sub 


KOSONGKANTEXT ( ) 
txtkodeadmin.Text us 
txtnamaadmin.Text Аш 
txtkatasandi.Text 
ComboBox1.Text = "" 

Sub 

KONDISIAWAL () 

btntambah.Text = "TAMBAH" 
btnedit.Text = "EDIT" 
btnhapus.Text = "HAPUS" 

Sub 

ISICOMBOBOXL ( ) 
ComboBox1. Items .Add ("ADMIN") 
ComboBox1. Items .Ааа ("USER") 
Sub 


Private Sub btntambah Click(sender As Object, е As EventArgs) 
btntambah.Click 


Try 

If btntambah.Text = "TAMBAH" Then 
btntambah.Text = "SIMPAN" 
btnhapus.Text = "BATAL" 
SIAPISI () 
txtkodeadmin.Focus() 

Else 
bukaDB ( ) 
Dim simpan As String 


Handles 


simpan - "INSERT INTO tbl admin values('" & txtkodeadmin.Text & 
"','" 8 txtnamaadmin.Text & "','" & txtkatasandi.Text & "','" & ComboBox1.Text & 


cmd = New OdbcCommand(simpan, conn) 
cmd. ExecuteNonQuery () 

MsgBox ("Data admin berhasil ditambah") 
KOSONGKANTEXT () 

TIDAKSIAPDIISI() 

KONDISIAWAL () 


End If 
Catch ex As Exception 

MsgBox ("Data admin gagal ditambah") 
End Try 


End Sub 


Private Sub form master Load(sender As Object, е As EventArgs) Handles 
MyBase.Load 
TIDAKSIAPDIISI() 
ISICOMBOBOX1() 
End Sub 


Private Sub btnhapus Click(sender As Object, e As EventArgs) Handles 
btnhapus.Click 
KOSONGKANTEXT ( ) 
TIDAKSIAPDIISI() 
KONDISIAWAL () 


End Sub 
End Class 


Module 
Imports System.Data.Odbc 
Module Modulel 
Public conn As OdbcConnection 
Public cmd As OdbcCommand 
Public tempatDB As String 
Sub bukaDB() 
Try 
tempatDB = ("Driver-(MYSQL ODBC 3.51 
Driverj;Databasezdb keuangan;uid-root") 
conn - New OdbcConnection(tempatDB) 
If conn.State - ConnectionState.Closed Then 
conn.Open() 
'MsgBox("Koneksi Database Berhasil", vbInformation, "Koneksi 
Sukses") 
End If 
Catch ex As Exception 
MsgBox("Koneksi Database Gagal", vbExclamation, "Koneksi Gagal") 


End Try 
End Sub 


End Module 


Design 


a Form Master 


TAMBAH HAPUS 


Kode Admin : 


Nama Admin : 


Kata Sandi : 


Level : 


